1 '"TRSTREE" (MYSTERY) from TRSTimes 5.6, chg'd: H.H. Herrdegen (93 12 24)
10  CLS: X1=63: X2=X1: Y=2
20  MS$="776982828932887765833233"
30   FOR I=X1 TO X2: SET(I,Y): NEXT: X=X+1: X1=X1-1: X2=X2+1: Y=Y+1
40  IF X<>37 THEN 30
60  READ X1,X2,Y1,Y2: IF X1=-1 THEN 110
80   FOR I=X1 TO X2: SET(I,Y1): NEXT: Y1=Y1+1: IF Y1>Y2 THEN 60 ELSE 80
110 READ X1,X2,Y: IF X1<>-1 THEN 140 ELSE PRINT @5,;
120  FOR I=1 TO 24 STEP 2: MS=VAL(MID$(MS$,I,2))
130  PRINT CHR$(MS);: NEXT: GOTO 160
140  FOR I=X1 TO X2: RESET(I,Y): NEXT: GOTO 110
160 READ X1,X2,Y: IF X1=-1 THEN 190
180  FOR I=X1 TO X2: RESET(I,Y): NEXT: Y=Y+1: IF Y<=47 THEN 180 ELSE 160
190 SET(37,40): SET(38,40): SET(39,41): SET(40,41): SET(41,40): SET(42,40)
200 SET(53,41): SET(54,42): SET(55,41)
210 SET(84,40): SET(85,40): SET(86,41): SET(87,41): SET(88,40): SET(89,40)
220 IF J<500 THEN READ X,Y,X1,Y1 ELSE 10
230 IF X=-1 THEN 270
240 IF POINT(X,Y) THEN RESET(X,Y) ELSE SET(X,Y): RESET(X1,Y1)
242 IF NOT POINT(X,Y) THEN SET(X1,Y1) ELSE RESET(X1,Y1)
250 J=J+1: GOTO 220
270 RESTORE
280 READ D: IF D=-2 THEN 220 ELSE 280
300 DATA 32,47,42,47,50,57,43,47,60,66,39,47,69,95,42,47,-1,-1,-1,-1,32,47,44,50
310 DATA 57,45,69,95,45,-1,-1,-1,39,40,41,54,54,41,86,87,42,-1,-1,-2,61,7,81,37
320 DATA 74,31,58,20,63,14,87,29,51,37,94,35,45,24,51,17,71,12,33,34,58,35,30,37
340 DATA 80,27,79,20,66,9,56,11,71,36,50,35,39,33,40,29,69,24,73,17,53,27,63,29
350 DATA 82,33,96,37,66,9,87,29,61,7,81,37,74,31,58,20,63,14,87,29,51,37,94,35
370 DATA 45,24,51,17,71,12,33,34,58,35,30,37,80,27,79,20,66,9,56,11,71,36,50,35
390 DATA 39,33,40,29,69,24,73,17,53,27,63,29,82,33,96,37,66,9,87,29,-1,-1,-1,-1
